
    ' listing 3  
      ' This small routine reads MacDraw PICT FILES AND displays the 	'PICTURE

    
    File.Pict$ = FILES$(1,"PICT")                         'Get the FileName
    IF LEN(File.Pict$) < 5 THEN END                        'if no file name then quit

    OPEN File.Pict$ FOR INPUT AS #1                     ' open the file for input
    FOR indx% = 1 TO 512                         'read the the first 512 byte header
        tmp$ = INPUT$(1,#1) 
    NEXT       
    PICT$ = INPUT$(LOF(1)-512,#1)    ' read the rest of the file into a string
    CLOSE #1                                        '  close the file
    CLS                                           ' clear the screen and display the picture
    PICTURE , PICT$



